home *** CD-ROM | disk | FTP | other *** search
/ Aminet 24 / Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso / Aminet / dev / c / AmiVoGL_MDEV.lha / drivers / ibmpc / cgapaddr.asm < prev    next >
Assembly Source File  |  1991-07-18  |  1KB  |  77 lines
  1.  
  2.     TITLE    CGAPADDR - Return video buffer address of a pixel.
  3.     NAME    CGAPADDR
  4.     PAGE    55,132
  5.  
  6.  
  7.     COMMENT    $
  8.  
  9.     Name:        CGAPADDR
  10.  
  11.     Function:    Determine buffer address of pixel in 640x200 2 color mode
  12.  
  13.     Caller:            AX = y co-ord (0-199)
  14.                 BX = x co-ord (0-639)
  15.  
  16.     Returns:
  17.                 AH = bit mask
  18.                 BX = byte offset in buffer
  19.                 CL = number of bits to shift left
  20.                 ES = video buffer segment
  21.  
  22.         $
  23.  
  24.         extrn    __buffer_segment:word
  25.         extrn    __buffer_offset:word
  26.  
  27.         public    __cga_set_buffer
  28.         public    cgapaddr
  29.  
  30. CGAA_TEXT    SEGMENT    byte public 'CODE'
  31.         ASSUME  CS: CGAA_TEXT
  32.  
  33. __cga_set_buffer    proc    far
  34.  
  35.     push    bp
  36.     mov    bp, sp
  37.  
  38.     les    di, [bp + 6]
  39.     mov    __buffer_segment, es
  40.     mov    __buffer_offset, di
  41.  
  42.     mov    sp, bp
  43.     pop    bp
  44.     ret
  45. __cga_set_buffer    endp
  46.  
  47. cgapaddr    PROC    far
  48.  
  49.     mov        cl,bl        ; CL = low-order byte of x
  50.     xchg        ah,al        ; AX = 100h * y
  51.     shr        bx,1        ; BX = x/2
  52.     shr        ax,1        ; AL = 80h*(y&1)
  53.     add        bh,al        ; BX = x/2 + 8000h*(y&1)
  54.     xor        al,al        ; AX = 100h*(y/2)
  55.     add        bx,ax        ; BX = x/2 + 8000h*(y&1) + 100h*(y/2)
  56.     shr        ax,1
  57.     shr        ax,1        ; AX = 40h*(y/2)
  58.     add        bx,ax        ; BX = x/2 + 8000h*(y&1) + 140h*(y/2)
  59.     shr        bx,1
  60.     shr        bx,1        ; BX = x/8 + 2000h*(y&1) + 50h*(y/2)
  61.  
  62.     add        bx, __buffer_offset
  63.  
  64.     mov        ax, __buffer_segment
  65.     mov        es,ax        ; ES:BX = byte address of pixel
  66.  
  67.     and        cl,7        ; CL = x &  
  68.     xor        cl,7        ; CL = number of bits to shift left
  69.     mov        ah,1        ; AH unshifted bit mask
  70.     ret
  71.  
  72. cgapaddr    endp
  73.  
  74. CGAA_TEXT    ends
  75.  
  76.         end
  77.